Private Sub btn_Click()

    Dim ù As Range
    Dim հ As Double
    
    On Error Resume Next
        Set ù = Range(ref.Text)
        
        If Err.Number <> 0 Then Exit Sub
    On Error GoTo 0
    
    հ = WorksheetFunction.Sum(ù)
    
    lbl.Caption = "հ : " & Format(հ, "#,###")
    
    ref.SetFocus
    
End Sub